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Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres aux micro- 
ordinateurs MSX : son, couleur, graphisme, etc. Pour cette raison, ces pro- 
grammes ne fonctionnent pas sur les micro-ordinateurs qui ne $e confor- 
ment pas à cette norme* 

Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera 
de nombreuses techniques de programmation qui vous seront très utiles pour 
développer vos propres programmes. 



NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Us doivent 
être enregistrés sur cassette (ou sur disquette) pour éviter d'avoir à les reta- 
per à chaque utilisation. Utilisez pour cela ('instruction 

CSAVE " < nom > " 

en remplaçant < nom > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BLITZ, tapez 

CSAVE "BUTZ" 

et pressez la touche ENTER après avoir appuyé sur les touches LECTURE 
et ENREGISTREMENT du magnétophone. Pour recharger un programme, 
rembobinez la cassette jusqu'au début du programme et tapez CLOAD 
" < nom > Si vous voulez, par exemple, recharger le programme BLITZ, 
tapez 


CLOAD "BLITZ" 
et pressez la touche ENTER. 

Afin de réduire au maximum les risques d'erreurs, les listings des pro- 
grammes ont été reproduits par photographie. Si vos programmes ne fonc- 
tionnent pas, vérifïez-les attentivement en considérant plus particulièrement 
les points suivants : 

— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre la let- 
tre O et le chiffre 0 ou la lettre 1 et le chiffre 1), 

Tous les programmes qui utilisent les touches du curseur peuvent utili- 
ser un joystick. Il suffît pour cela de remplacer STICK(O) par STICK! 1) et 
STRIG(O) par STRIG(I), 



SQUASH 


Grâce à votre ordinateur, vous pouvez jouer au squash assis dans un fau- 
teuil. La raquette se déplace à l'aide des touches du curseur. Vous disposez 
de dix balles que vous devez garder en jeu le plus longtemps possible. Chaque 
balle renvoyée rapporte un point. 


10 REM ********** 

20 REM * SQUASH * 

30 REM ********** 

40 KEY OFF 
50 SCISUB 540 
60 LOCATE SX ,BY ,0 
70 PR INT Nî- 
SO BX=EX+DX 
90 BY=BY+DY 
100 LOCATE BX,BY,0 
110 PR INT B*; 

120 IF BY=21 AND ABS ( BX-RX-3) >1 THEN 250 
130 IF BY=21 THEN S=S+ 1 : BEEP: DY=-DY 
140 IF BY=1 THEN BEEP: DY=—DY 
150 IF SX =3 OR BX=35 THEN BEEP: DX=-DX 
160 D=2*( (STICK (0)=7>- (STICK (0) =3) ) 


MSX JEUX D’ACTION 


170 IF DOO THEN D0=D 

ISO IF STICK (O) =0 THEN D0=0 

190 RX=RX+DO 

200 IF RX<0 THEN RX=0 

210 IF RX>32THEN RX=32 

220 LOCATE RX,RY,Q 

230 PR INT Rï; 

240 GOTO 60 

250 NB=NB+1 

260 IF NB=1 1 THEN 370 

270 LDCATE BX,BY,0 

280 PR INT N*; 

290 FOR 1=1 TO 3 
300 BEER 

310 FOR J=1 TO 100 

320 NEXT J 

330 NEXT I 

340 DQ=0 

350 GOSUB 720 

360 GOTO 60 

370 LDCATE 13,5,0 

380 PR INT "SCORE ï" jS; 

390 IF S>R1 THEN R1=S 

400 LDCATE 13,10,0 

410 PRINT "RECORD : " ;R1î 

420 LDCATE 13,15 

430 PRINT "UNE AUTRE ?"; 

440 NB=0 

450 S=Q 

460 DÏ=INKEYÏ 

470 IF Dt<>" " THEN 460 

480 DÏ=INKEYÏ 

490 IF DÏ= MM THEN 480 

500 IF DÏ<>“N" AND D$<>"n" THEN 50 

510 CLS 

520 LDCATE 0,0,1 
530 END 
540 CLS 

550 SCREEN 0,0 
560 CDLDR 15,9 
570 DEF INT A-Z 
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SÛUASH 


580 NÏ=CHRÏ<32) 

590 FOR BX=2 TG 37 
600 LOCATE BX,0,0 
610 PRINT CHRÏ <219) ; 

620 NEXT BX 
630 FOR BY=1 TO 21 
640 LOCATE 2,BY,0 
650 PRINT CHRÏ (219) ; 

660 LOCATE 37,BY,0 
670 PRINT CHRÏ (219) ; 

680 NEXT BY 

£90 Rï=NÏ+NÏ+CHRÏ <2231 +CHRÏ( 223 > +CHRÏI22 

3) +NÏ+NÏ 

700 BÏ=CHRÏ (249) 

710 RX=16 
720 RY=22 
730 BY=21 

740 EX=INT (RND<l)*32>+5 
750 DY=~1 

760 DX=(INT <RND(l)*2)-.5)*2 
770 RETURN 
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BLITZ 


Votre mission est de détruire la ville que vous survolez afin de pouvoir 
atterrir. A chaque passage, votre avion vole un peu plus bas. Vous ne pou- 
vez larguer une bombe (en appuyant sur une touche quelconque) que lors- 
que la bombe précédente a atteint son objectif ou le sol. Lorsque votre avion 
a atterri (ou lorsqu'il s'est écrasé contre un immeuble), le score est affiché 
ainsi que le record du jour. St ce jeu vous paraît trop difficile, vous pouvez 
changer les limites de la ville {10 et 30, ligne 730). 


10 REM ********* 

20 REM * BLITZ * 

30 REM *»*#■***■#* 

40 KEY OFF 
50 WIDTH 39 
60 GOSUB 590 
70 GOSUB 670 
BO FOR HY=0 TO 23 
90 FOR HX=0 TO 38 
100 LDCATE HX,HY,0 
110 PRINT A$; 

120 IF MX >35 THEN 140 

130 IF VPEEK (HX+5+HY*40) < >32 THEN 240 
140 IF INKEY*<>*‘" AND BY=0 AND HX<>39 TH 
EN BX=HX+lsBY=HY+l 

150 IF BYOO THEN GOSUB 510 ELSE GDSUB 5 
60 

160 NEXT HX 

170 LOCATE 37 t HY,0 

1 80 PRINT NN$; 

190 NEXT HY 

200 FOR 1=1 TO 500 

210 NEXT I 

220 S=S+40*HY+HX 


MSX JEUX D'ACTION 


230 GOTO 70 
240 S=S+40*HY+HX 
250 VPOKE BX+B1#40,0 
260 FOR I=HY TO 22 
270 LOCATE HX+1,I,0 
280 PRINT NN$j 
290 LOCATE HX+1 , 1+1,0 
300 PRINT RIGHT* (A*, 3) ; 

310 FOR J=1 TO 100 

320 NEXT J 

330 NEXT I 

340 IF S>R THEN R=S 

350 LOCATE 3,0,0 

360 PRINT "SCORE : ’* 5 Ss 

370 LOCATE 25,0,0 

380 PRINT "RECORD s"îR; 

390 FOR 1=1 TD ÎOO 
400 NEXT I 
410 R$=INKEY$ 

420 IF R$< >" " THEN 410 
430 LOCATE. 7,13,0 
440 PRINT "UNE AUTRE 
450 RÏ=INKEYî 
460 IF R$= ,,M THEN 450 

470 IF R$<>"N" AND R^Vn" THEN S=0:GDT0 
70 

480 COLOR 15, 4, 5: LOCATE 0,0,1 
490 CLS 
500 END 

510 IF B Y >23 THEN BY=0 
520 VPOKE BX+B1*40,32 
530 B1=BY 

540 IF BYOO THEN VPOKE BX+BY*40,B:BY=BY 
+ 1 

550 RETURN 
560 FOR 1=1 TO 10 
570 NEXT I 
580 RETURN 
590 SCREEN 0,0 
600 GDSUB 790 
610 COLOR 10,1 
620 DEF INT A-V 
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BLITZ 


630 A*=CHR* (32) +CHRS (12B> +CHR* i 129> +CHR* 


< 130 ) 

640 B=131 

650 NN$=CHR$ (32) +CHRT (32) +CHR$ (32) 

660 RETURN 
670 HX=0 
680 HY=0 
690 BX=0 
700 BY=0 
710 B1=BY 
720 CLS 

730 FOR 1=10 TO 30 

740 FOR J =23 TG INT (RND < 1 ) *5) +14 STEP-1 

750 VPOKE I+J*4Û,132 

760 NEXT J 

770 NEXT I 

780 RETURN 

790 RESTDRE 

800 FOR 1=0 TO 39 

810 READ A 

820 VPOKE 3072+1 , A*4 


830 

940 

850 

860 

870 

B80 

890 


NEXT I 
RETURN 

DATA 0,0,32,48,56,63,63,63 
DATA 0,0,0,0,0,63,63,63 
DATA 0,0,0,0,0,48,60,62 
DATA 14,14,4,14,14,14,14,4 
DATA 63,41,41,41,63,63,63,63 
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D.C.A. 


Les rôles sont maintenant inversés. Vous manœuvrez la D.C.A. et devez 
essayer d'abattre les avions qui passent au-dessus de vous. Pour tirer, utili- 
sez n'importe quelle touche. Vous disposez au départ de quinze missiles. 
Si vous abattez dix avions, vous obtenez un bonus de dix points et dix mis- 
siles supplémentaires. 


10 REM tnHHHHHHHUt 
20 REM * D.C.A. * 

30 REM **##****#■* 

40 KEY OFF 
50 WIDTH 39 
60 CLEAR 250 
70 BOSUB 640 

80 A$=RIGHT* (A*, 1 ) +LEFT$ ( A$ , 3B> 
90 B$=RIGHTi (B$ , 38) +LEFTÏ (Bî, 1 ) 
100 LOCATE 0,0,0 
110 PRINT A*; 

120 LOCATE 0,2 
130 PRINT B*; 

140 LOCATE MX— 2,24 ,0 
150 PRINT J$; 

160 R*=INKEY$ 


MSX JEUX D'ACTION 


170 IF R$<>"" AND MY=24 THEN MY=23:CM=G4 
ïNM=NM-l 

ISO IF MY<>24 THEN MY=MY-2: VPOKE MX+MY*4 

0 , CM : VPOKE MX + (MY+2) *40, CO 

190 IF MY<>3 THEN 270 

200 IF VPEEK<MX+80)=C0 THEN 270 

210 VPOKE MX +80, CE 

220 VPOKE MX+MY*40,CÜ 

230 BEEP 

240 S=S+1 

2S0 BÏ=LEFTÏ C Bï , 1 7 > +0 1 Ï+R I GHTÏ < Bï , 1 B ) 

260 GOTO 340 

270 IF MYOl THEN 370 

2B0 IF VPEEK <MX) =C0 THEN 370 

290 VPOKE MX, CE 

300 S=S+1 

310 VPOKE MX+MY*40 , CD 
320 BEEP 

330 AÏ=LEFTÏ <AÏ , 17) +01Ï+RI GHTÏ ( Aï ,18> 

340 IF S>1 AND S/ 10=INT CS/ 10) THEN GOSUB 
370 

350 MY=24 
360 M=G6 

370 LOCATE 0,24,0 

380 PRINT "S : " ; S; "M :";NMï 

390 IF NM< 1 AND MY=24 THEN 420 

400 IF MY<=1 THEN VPOKE MX+40 , CO: MY=24: M 

=G6 

410 GOTO 80 

420 IF S>R THEN R=S 

430 LOCATE 15,10 

440 PRINT "SCORE :";S; 

450 LOCATE 15,13 

460 PRINT "RECORD : " ;R; 

470 LOCATE 15,16 

480 PRINT "UNE AUTRE 9"; 

490 RÏ=INKEYÏ 

500 IF RS< >" " THEN 490 

510 RÏ=INKEYÏ 

520 IF Rï=" " THEN 510 

530 IF Rï< >"N" AND R^O^n" THEN 70 

540 LOCATE 0,0,1 
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D.C.A. 


550 CLS 
560 END 
570 AÏ=A1Ï 


580 BÎ=B1Ï 

590 NM=NM+10 

600 FOR 1=1 TO 300 

610 NEXT I 

620 S=S+10 

630 RETURN 

640 DEF INT A-Z:SCREEN 0,0:CÜL0R 10,4 
650 GOSUB 800 

660 S=0 : Aï = “ " : Bï=" " s NÏ=CHRÏ (32 ) 

670 FOR 1=1 TO 5 

680 AÏ=AÏ +CHRÏ £ 1 2B ) +CHRÏ (129) +NÏ+NÏ+NÏ+N 


Ï+NÏ+NÏ 

690 BÏ=BÏ+CHRÏ C 130) +CHRÏ C 131 ) +NÏ+NÏ+NÏ+N 

Ï+NÏ+NÏ 

700 NEXT I 

710 AÏ=LEFTÏ(AÏ,39> : 8Ï=LEFTÏ <BÏ,39) 

720 A 1 ï= Aï : B 1 Ï=BÏ : CE= 1 35 

730 JÏ=CHRÏ ( 132) +CHRÏ ( 133) +CHRÏ C 132) 

740 MX = 1 9 : M Y=24 : NM= 1 5 : G6= 1 33 : G4= 1 34 

750 C0=32: 01Ï=NÏ+NÏ+NÏ+NÏ 

760 LOCATE MX-2 , MY , 0 : PRI NT Jï; 

770 LDCATE 0,0,0: PRINT Aï; 

780 LOCATE 0,2,0: PRINT Bï; 

790 RETURN 

800 RESTORE 

810 FOR 1=0 TO 63 

820 READ A: VPOKE 3072+1 ,A*4 

830 NEXT I 

840 RETURN 

850 DATA 0,1,48,49,63,63,16,0 
860 DATA 0,62,36,62,63,63,62,24 
870 DATA 0,31,9,31,63,63,31,6 
880 DATA 0,32,3,35,63,63,2,0 
890 DATA 0,0,0,0,0,63,63,63 
900 DATA 30,30,30,63,63,63,63,63 
910 DATA 4,14,14,14,14,14,14,14 
920 DATA 4,21,14,4,4,14,21,4 
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TRACE 


Deux joueurs s'affrontent pour se partager l'espace vital. Chacun doit 
s'efforcer, tout en se déplaçant, de ne jamais recouper sa trace ou celle de 
son adversaire, et de ne pas sortir du rectangle dessiné sur l'écran. Utilisez 
les joysticks ou les touches suivantes : 

Joueur de droite : < P > , <L>, < ; > et < . > 

Joueur de gauche : <W>,<A>,<S> et<Z> 


10 REM ********* 

20 REM * TRACE * 

30 REM ********* 

40 KEY OFF 
50 WIDTH 39 
60 GOSLIB 690 
70 ON JK GOTO 140 
80 D$=INKEY$ 

90 HB=(D*= ,, L")— <D$="î ") 

100 VB= (D$ : ='‘P , ‘ ) - (Di=" . “ ï 
110 HA=(D*= ,, A ,, )-(D#="S 1 ') 

120 VA= ( D$= " W " ) — ( D$= 11 Z ” ) 

130 GOTO ISO 

140 HA= (STICK ( 1 ) =7) - (STICK ( 1 ) =3) 
150 VA= (STICK ( 1 ) =1 ) - (STICK ( 1 > =5) 
160 HB= (STICK (2) =7) - (STICK (2) =3) 
170 VB= (STICK (2) =1 ) — (STICK (21=5) 
180 IF HAOO THEN H1=HA:V1=0 

190 IF VAOO THEN V1=0A:H1=0 

200 IF HBOO THEN H2=HB: V2=0 

210 IF VB< >0 THEN V2=VB:H2=0 


MSX JEUX D'ACTION 


220 X1=X1+H1 
230 Y1=Y1+V1 

240 IF VPEEK C X 1 +Y 1 *40 > < >N THEN 320 
250 VPOKE Xl+Yl*40,CG 
260 X2=X2+H2 
270 Y2=Y2+V2 

280 IF VPEEK <X2+Y2*40) ON THEN 380 

290 VPOKE X2+Y2*40,CD 

300 BEEP 

310 GOTO 70 

320 F2=F2+ 1 

330 GOSUB 630 

340 IF F2=1Q THEN 440 

350 IF I NKEYÏ< >" " THEN 350 

360 BGSUB 770 

370 GOTO 70 

380 F 1 =F 1+1 

390 GOSUB 630 

400 IF F 1=1 O THEN 500 

410 IF INKEY^O" " THEN 410 

420 GOSUB 770 

430 GOTO 70 

440 CLS 

450 LOCATE 9,5 

460 PR INT "LE JOUEUR DROIT GAGNE" ; 

470 LOCATE 15,10 

480 PRINT F2; "A"; Fi 

490 GOTO 550 

500 CLS 

510 LOCATE 9,5 

520 PRINT "LE JOUEUR GAUCHE GAGNE"; 

530 LOCATE 15,10 

540 PRINT F i ; " A " ; F2 

550 LOCATE 14,15,1 

560 PRINT "UNE AUTRE ?"; 

570 IF INKEY$< >" " THEN 570 
580 D$=INKEY$ 

590 IF D$=" “ THEN 580 

600 IF D*<>"N" AND D$<>"n" THEN RUN 

610 CLS 

620 END 

630 FOR 1=1 TO 5 
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TRACE 


640 BEEP 

650 FOR J=1 TO 100 
660 NEXT J 
670 NEXT I 
680 RETURN 
690 CLS 

700 SCREEN 0,0 

710 DEFINT A— Z: COLOR 1,12: LOCATE 6,10,0 

720 GOSUB 920 

730 PRINT "JOYSTICKS 2"; 

740 R$=INKEY$: IF R$=" " THEN 740 
750 JK=-<R$="0" )-(R$="o") 

760 CG=128:CD=129:N=32 
770 CLS 

780 FOR X1=0 TO 39 

790 VPOKE XI +40, 130: VPOKE X1+8BÜ,130 

BOO NEXT XI 

810 FOR Y 1=2 TO 22 

820 VPOKE Y 1*40, 130: VPOKE Y 1*40+39, 130 

B30 NEXT Y1 

840 LOCATE 2,24,0 

B50 PRINT "JOUEUR G AUCHE : " ; F 1 ; 

B60 LOCATE 22,24,0 

870 PRINT "JOUEUR DROIT: ”;F2; 

880 X 1 =8 : Y 1 = 1 1 : X2=32 

890 Y2= 1 1 : Hl = l : V1=0 

900 H2=-1:V2=0: SI =0:32=0 

910 RETURN 

920 FOR 1=0 TO 23 

930 RE AD A: VPOKE 3072+1 ,A*4 

940 NEXT I 

950 RETURN 

960 DATA 30,43,53,43,53,43,53,30 
970 DATA 30,63,63,63,63,63,63,30 
980 DATA 63,63,63,63,63,63,63,63 
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SLALOM 


Parlez aux sports d'hiver sans risque de vous casser une jambe I Lancez- 
vous du haut de la piste et essayez de passer le plus grand nombre possible 
de portes sans heurter les piquets. Frappez n'importe quelle touche pour chan- 
ger de direction. 


10 REM ********** 

20 REM * SLALOM * 

30 REM ********** 

40 KEY DFF 
50 WIDTH 39 
60 GOSÜB 450 
70 FOR K= 1 TO 300 
BO X=SX+1 
90 Y=SY 

ÎOO IF K>=16 AND ( K-5) / 1 0= I NT < (K-5) / 1 0 > 


MSX JEUX D'ACTION 


THEN GGSUB 370 

110 IF K<284 AND K/ 10=INT (K/ 10) THEN GOS 
UB 390 

120 IF INKEY$< >” “ THEN DX=-DX 
130 S1=SX 
140 SX=SX+DX 

150 IF SX<2 THEN SX=2:DX=-DX 
160 IF SX >36 THEN SX=36: DX=-DX 
170 LOCATE SI , S Y , 0 
100 PRINT B$; 

190 LOCATE 0,24,0 
200 PRINT 

210 LOCATE SX,SY,0 
220 PRINT S*<DX/2+.5); 

230 Si=SX 

240 NEXT K 

250 LOCATE 5,5,0 

260 PRINT "PORTE CS) RATEE <SÏ ï";T 
270 LOCATE 5,8,0 

280 PRINT "UNE AUTRE DESCENTE ?" 

290 D*=INKEY* 

300 IF D$< >" “ THEN 290 

310 D*=INKEYi 

320 IF D$=” " THEN 310 

330 IF Dî< >"N” AND D$<>“n" THEN RUN 

340 CLS 

350 LOCATE 1,1,1 
360 END 

370 IF VPEEK ( X-l+Y*40 ) =32 OR VPEEK (X +2+4 
0*Y> =32 THEN IF VPEEK t X-2+Y*40) =32 OR VP 
EEK(X+1+Y*40>=32 THEN T=T+1:BEEP 
3B0 RETURN 

390 P=P+(INT(RND(l)*3ï-lî*0 
400 IF P<2 THEN P=10 
410 IF P >34 THEN P=26 
420 LOCATE P, 23 
430 PRINT P$; 

440 RETURN 
450 DIM S$(l) 

460 DEF INT A-Z 
470 S$ <0) =CHR$ f 128) 

480 S$ Cl) =CHR$ ( 129) 
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SLALOM 


490 B*=CHR$<32) 

500 Pt =CHR$ (130) +B*+B$+CHR$ (131) 

510 SCREEN 0,0 
520 COLOR 4,15 
530 DX“- 1 
540 S Y =8 
550 SX=19 
560 S1=SX 
570 P=18 
580 GOSUB 660 
590 CLS 

600 LOCATE 5,10,0 

610 PRINT "TAPEZ UNE TOUCHE POUR COMMEMC 
ER" 

620 N=RND(1) 

630 IF INKEY$=" " THEN 620 

640 CLS 

650 RETURN 

660 FOR 1=0 TO 31 

670 READ A 

680 VPOKE 3072+1 , A*4 
690 NEXT I 
700 RETURN 

710 DATA 4,56,17,26,4,8,16,32 
720 DATA 8,7,34,22,8,4,2,1 
730 DATA 12,28,12,4,4,4,4,4 
740 DATA 6, 7, 6,4, 4,4, 4, 4 
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RAMASSE-MIETTES 


Voici une curieuse façon d'utiliser un ordinateur : vous devez vous effor- 
cer de ramasser le plus vite possible les miettes qui jonchent la nappe. Vous 
disposez de 30 secondes pour un nettoyage complet. Les miettes sont repré- 
sentées par des points blancs. Les touches du curseur vous permettent de 
contrôler votre ramasse-miettes. 


10 REM ******************* 

20 REM * RAMASSE-MIETTES * 

30 REM ******************* 

40 KEY OFF 
50 GOSUB 2 AO 
60 LGCATE 0,23,0 

70 PR I NT " TEMPS : " ; I NT < Z ) ; ’■ SCORE : " ; S ; 
80 IF Z<1 THEN 580 
90 K=ST1CK(0) 

100 D1=(K=7)-(K=3) 

110 D2= f K— 1 > — ( K=5 J 

120 IF Dl< >0 THEN DX=D1:DY=0 

130 IF D2<>0 THEN DY=D2;DX=0 

140 XP— PX+DX 

150 YP=PY*DY 

1 60 CR=VPEEK ( XP+ YP*40 ) 

170 IF DR=J OR CR— B THEN XP=PX:YP=PY 

180 IF CR=M THEN S=S+1 : BEEP: X=X+1 

190 VFOKE PX+PY*4Û,N 

200 VPQKE XP+YP*40,J 

210 PX=XP 

220 PY=YP 

230 2~Z ~. 1 

240 IF X=NM THEN 720 
250 GOTO 60 
260 SCREEN 0,0 


MSX JEUX D'ACTION 


270 COLDR 15,4,5 
280 DEF INT A-Y 
290 B-233 
300 M=249 
310 N =32 
320 S=0 
330 NM=10 
340 X=0 

350 FOR PX=0 TD 39 

360 VPOKE PX+40,B 

370 VFOKE BBO+PX , B 

380 NEXT PX 

390 FOR FY=2 TO 21 

400 VFOKE PY*40,B 

410 VPOKE PY*40+39,B 

420 NEXT PY 

430 FOR 1=1 TO NM 

440 PX=INT(RND(-TIME)*37>+1 

450 PY=INT (RND (—TIME) *21 ) +2 

460 IF VPEEK CPX+PY*40) < >32 THEN 440 

470 VPOKE PX+PY*40,M 

4BO NEXT I 

490 PX=INT (RND <— TIME) *37) +1 

500 PY=INT<RND(-TIME) *21) +2 

510 IF VPEEK (PX+PY*40X >32 THEN 490 

520 VPOKE PX+PY*40,J 

530 Z=30 

540 DX=0 

550 DY=0 

560 J =2 1 9 

570 RETURN 

5B0 FOR 1=1 TO 500 

590 NEXT I 

600 IF INKEY$< >" " THEN 600 
610 IF S>R THEN R=S 
620 LOCATE 13,10 
630 PR INT "RECORD : U ;R; 

640 LOCATE 13,16 
650 PR INT "ONE AUTRE 
660 D$=INKEY* 

670 IF D$="" THEN 660 
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RAMASSE-MIETTES 


6BO IF D$<>"N" AND D$<>"n w THEN 50 
690 CLS 

700 LOCATE 0,0,1 

710 END 

720 NM=NM+1 

730 VPOKE XP+YP*40,N 

740 GOSUB 340 

750 GOTO 60 
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TANK 


Essayez de suivre la route avec votre tank tout en évitant les mines qui 
s'y trouvent placées au hasard par l'ordinateur. Pour vous diriger, utilisez 
les touches du curseur. Si le passage est bloqué, vous pouvez faire sauter 
une ou plusieurs mines en tirant un de vos dix obus (frappez la barre 
d'espacement). 


10 REM tHHHHH**# 

20 REM * TANK * 

30 REM *#*•*■#*** 

40 KEY DFF 
50 WIDTH 39 
60 GÜSUB 570 

70 TX«TX+< STICK <0> -7)- (STICK (0>=3Ï 
80 VPOKE X+40*Y,32 
90 LDCATE Q,24 T 0 
100 PR INT R* 

110 IF VPEEKCTX+TY*40Ï<>32 THEN 300 

120 OPGKE TX+TY*40,T 

130 IF STR IG (O) =— 1 THEN GOSÜB 240 

140 X=TX 

150 Y- T Y 

160 PO=INT tRND Cl > *73+18 
170 OPOKE 880+PO,M 
180 PO=INT(RND Cl 3*73+18 
190 VPOKE 8BO+PO , M 
200 S=S+1 

210 F DR 1=1 TO DL-S 
220 NEXT I 
230 GDTO 70 


MSX JEUX D'ACTION 


240 IF 0B=0 THEN 290 

250 OB=OB— 1 

260 FOR 1=1 TO 5 

270 VPOKE TX+(TY+n *40,32 

280 NEXT I 

290 RETURN 

300 FOR 1=1 TO lO 

310 VPQKE TX+TY*40,M 

320 FOR J=1 TO 100 

330 NEXT J 

340 BEEP 

350 VPOKE TX+TY*40,T 

360 FOR J=1 TO 100 

370 NEXT J 

380 BEEP 

390 NEXT I 

400 IF S>R THEN R=S 

410 CLS 

420 LGCATE 10,10 
430 PR INT "SCORE :";S; 

440 LOCATE 9,14 

450 PR INT "RECORD :";R; 

460 LOCATE 9,1B,1 

470 PR INT "UNE AUTRE ?"; 

400 IF INKEY$< >" “ THEN 480 
490 X$=INKEY* 

500 IF X*="" THEN 490 

510 IF X$<>"N" AND X#<>"n" THEN 550 

520 CLS 

530 COLOR 15,4 
540 END 
550 GOSUB 720 
560 GOTO 70 
570 CLS 

580 SCREEN 0,0 
590 COLOR 1,11 
600 DEF INT A-Z 
610 T=128 
620 M=42 
630 R*="" 

640 FOR 1=1 TO 15 
650 R$=R*+CHR* (32) 


- 34 - 


TANK 


660 NEXT I 

670 R$=R$+CHR$<42)+CHRi(42> 

680 FOR 1=1 TO 7 
690 R*=R*+CHR$<32) 

700 NEXT I 

710 R$=R*+CHR$ <42>+CHR$<42> 

720 CLS 

730 TX=19 

740 TY=10 

750 X=TX 

760 Y=TY 

770 5=0 

700 GOSUB 850 

790 DL=200 

BOO QB=10 

810 FOR 1=1 TO 24 

820 PR INT R$ 

830 NEXT I 
840 RETURN 
850 RESTORE 
860 FOR 1=0 TO 7 
870 READ A 

880 VPOKE 3072+1 , A*4 
890 NEXT I 
900 RETURN 

910 DATA 17,31,31,31,31,21,4,4 
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ALPHABET 


Voici un jeu d'adresse assez difficile. Vous tenterez de marquer le plus 
grand nombre de points possible en effaçant les lettres affichées par I ordi- 
nateur. Utilisez les touches du curseur pour vous diriger. 

Attention : vous devez effacer les lettres dans l'ordre alphabétique en 
évitant les obstacles placés au hasard sur l'écran, et ceci en un temps limité. 
(Le temps qui vous reste est affiché au bas de l'écran.) Lorsque toutes les 
lettres sont effacées, le jeu reprend avec une lettre supplémentaire. 


10 REli ************ 

20 REM * ALPHABET * 

30 REM ************ 

40 KEY OFF 
50 WIDTH 39 
60 GÜSUB 350 
70 FOR 1=1 TO X 
SO LOCATE 0,23,0 

90 PR INT "TEMPS : " ; I NT ( Z ) , H SCORE ;S; 
100 IF Z<1 THEN 7ÜÔ 
110 K=STICKtO) 

120 D 1= ( K=7 > - (K=3 ) 

130 D2=CK=1>-(K=5> 

140 IF DlOO THEN DX=D1:DY=Ü 

150 IF D2O0 THEN DY=D2îDX=0 

160 XP=PX+DX 

170 YP=PY+DY 

ISO CR=VPEEK CXP+YP*40) 



MSX JEUX D'ACTION 


190 IF CR=I+64 THEN S=S+ 1 : BEER: GOTO 270 

200 IF CRC >32 THEN XP=PX:YP=PY 

210 VPOKE PX+PY*40,N 

220 VPOKE XP+YP*40,J 

230 PX=XP 

240 PY=YP 

250 Z=Z-. 1 

260 GOTO BO 

270 VPOKE PX+PY*40,N 

280 VPOKE XP+YP*40,J 

290 PX=XP 

300 PY=YP 

310 Z=Z-. 1 

320 NEXT I 

330 GOSUB 350 

340 GOTO 70 

350 SCREEN 0,0 

360 COLOR 15,3 

370 DEF INT A-Y 

380 J=215 

390 M=219 

400 X=X + 1 

410 N— 32 

420 FOR PX=0 TD 39 

430 VPOKE PX+40, M 

440 VPOKE 8S0+PX , M 

450 NEXT PX 

460 FOR PY=2 TO 21 

470 VPOKE PY*40,M 

480 VPOKE PY*40+39,M 

490 NEXT P Y 

500 FOR 1=1 TO 120 

510 PX= INT ( RND ( 1 ) *37) +1 

520 PY=INT<RNDtl)*21)+2 

530 IF VPEEK (PX+PY*40) < >32 THEN 510 

540 VPOKE PX+FY*40,M 

550 NEXT I 

560 FDR Z=1 TO X 

570 PX=INT<RND(1)*37>+1 

580 PY=INT (RND ( 1 ) *21 > +2 

590 IF VPEEK <PX+PY*40> 032 THEN 570 

600 VPBKE PX+PY*40, Z+64 
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610 NEXT Z 

620 PX=INT (RND (—TIME) *37) +1 

630 PY=INT (RND (—TIME > *21 ) +2 

640 IF VPEEK (PX+PY*40> 032 THEN 620 

650 VPOKE PX+PY*40,J 

660 Z=50 

670 DX=0 

680 DY=0 

690 RETURN 

700 FOR 1=1 TO 500 

710 NEXT I 

720 IF INKEYiC > " " THEN 720 
730 IF S>R THEN R=S 
740 LOCATE 13,10 
750 PR INT "RECORD ;R; 

760 LOCATE 13,16 

770 PR TNT "UNE AUTRE ?"; 

780 DT= INKEYT 

790 IF DT= THEN 780 

800 IF D*<>"N” AND D$<>"n" THEN RUN 
810 CLS 

820 LOCATE 0,0,1 
830 END 
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ATTERRISSAGE 


Après un long voyage en apesanteur, poser une navette spatiale en dou- 
ceur n'est pas chose aisée ; mais grâce à votre ordinateur, vous allez être 
en mesure de vous entraîner sans danger. Vous devez poser votre navette 
sur l'une des quatre aires prévues à cet effet. Vous pouvez vous diriger vers 
la droite et vers la gauche à l'aide des touches <— -> et < — >.A chaque 
atterrissage réussi, le jeu reprend avec une vitesse supérieure. 


10 REM **************** 

20 REM * ATTERRISSAGE * 

30 REM **#**-»****«■**#*# 

40 GOSUB 350 
50 GOSUB 520 
60 FOR NY=i TO 21 
70 D$= I MKEYÏ 
80 NH=NX 

90 NX=NX+ (STICK (0) —7 ) — (STICK < Û> =3> 
ÎOO IF NX<2 THEN NX=2 
110 IF NX >36 THEN NX =36 
120 LOCATE NH , NY- 1 ï PR I NT B2$; 


MSX JEUX D'ACTION 


130 LOCATE NH,NY: PR INT B2$; 

140 LOCATE NX , NY: PR INT Nl$; 

150 LOCATE NX , NY+1 : PRI NT N2$; 

160 FOR 1=1 TO DL:NEXT I 
170 NEXT NY 

180 IF INT< (NX-4) /10)=<NX-4)/lO THEN BOT 
O 50 

190 LOCATE NX, NY: PR INT B2$; 

200 LOCATE NX , NY- 1 : PR INT B2$; 

210 IF NX<5 THEN NX=5 

220 LOCATE NX— 3, NY : PR INT NC4; 

230 BEEP 

240 FOR 1=1 TO 400: NEXT I 

250 LOCATE B, 10: PR INT "VOTRE NAVETTE S'E 
ST ECRASEE"; 

260 LOCATE 15,12:PRINT "SCORE :’';S-1; 

270 LOCATE 14,15:PRINT "UNE AUTRE ?" ; 

280 IF INKEYf < >" " THEN 280 
290 D*=INKEY* 

300 IF D$= " " THEN 290 

310 IF D$< >"N " AND D4<>"n" THEN RUN 
320 LOCATE 0,0,1 
330 CLS 
340 END 

350 COLOR 10,4 
360 SCREEN 0,0 
370 WIDTH 39 
380 KEY OFF 
390 FOR 1=0 TO 39 
400 READ A 

410 VPQKE 3072+1 , A*4 

420 NEXT I 

430 B$=CHR*<32) 

440 B2ÿ=B$+B* 

450 N1*=CHR*(128)+CHR$ Cl 29) 

460 N2*=CHR$ < 130) +CHR* < 131 > 

470 A*=CHR*(132)+CHR$<i32) 

480 NC$=CHR$ (131) +CHR$ <129) +B$+CHR* < 128 ) 
+CHR4 (130) 

490 S=0 
500 DL=100 
510 RETURN 
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520 

530 

540 

550 

560 

570 

5B0 

590 

600 

610 

620 

630 

640 

650 

660 


FOR 1=1 TO 500: NEXT I 
CLS 

FOR 1=0 TO 3 

LOCATE 4+1 *10, 24, O: PR INT A4 1 ; 

NEXT I 

DL=DL-10 

IF DL< 1 THEN DL=1 
S=S+1 

NX=INT (RND < 1 ) *35) +2 
RETURN 

DATA 0,7,15,31,59,59,63,59 
DATA 0,56,60,62,55,55,63,55 
DATA 59,31,15,18,32,32,16,56 
DATA 55,62,60,18,1,1,2,7 
DATA 63,63,65,0,0,0,0,0 
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CHASSE AU 
CANARD 


Votre micro-ordinateur vous invite à une partie de chasse au canard. Les 
canards volent de droite à gauche en haut de l'écran. Vous vous déplacez 
en utilisant les touches du curseur. Vous pouvez tirer autant de cartouches 
que vous voulez, mais il ne passera que 20 canards, et votre but est d'en 
abattre le plus possible. Pour tirer, frappez la barre d'espacement. Si vous 
atteignez un canard, vous marquerez un point et vous le verrez tomber en 
battant des ailes. 


10 REH ***■***•*■**•**•****■##**# 
20 REM * CHASSE AU CANARD * 
30 REM H**###*###*#*##*##** 
40 KEY OFF 
50 WIDTH 39 
60 GOSUB 330 
70 Z=-Z 
80 H=Z+. 5 
90 CX=CX-1 

100 IF CX<0 THEN GOSUB 560 
110 IF NC=0 THEN 710 
120 LOCATE CX , CY , 0 


MSX JEUX D'ACTION 


130 PRINT CCi(H>; 

140 LDCATE X,Y,0 
150 PRINT Ni; 

160 LOCATE JX,JY 
170 PRINT ji; 

ISO X-JX 

190 IF TYOJY THEN TY=TY-2s GOTO 210 
200 TX=JX 

210 IF TY<2 THEN 610 
220 LOCATE TX ,TY,0 
230 PRINT Ji S 

240 IF TYOJY THEN LOCATE TX ,TY+2,0: PRIN 
T NT ; 

250 JX=JX+2* ( < STICK (O) —7) — ( STICK (O) =3) > 

260 IF JX >37 THEN JX=37 

270 IF JX<2 THEN JX=2 

280 IF STR I G ( O) =0 THEN 70 

290 IF TYOJY THEN 70 

300 TY=JY— 2 

310 TX= J X 

320 GOTO 70 

330 CLS 

340 DEF INT A- Y 
350 SCREEN 0,0 
360 GOSUB 1110 
370 COLOR 3,4 
380 CLS 
390 DIM CCi(l) 

400 Ji=CHRi<128> 

410 Ni=CHRi(32) 

420 Ei=CHRi(42) 

430 CCi (O) =CHRf < 1 29 > +CHRi (130) +CHRi (131) 
+Ni 

440 CCi<l)=CHRi<129) +CHRi ( 132) +CHRi < 131 ) 
+Ni 

450 JX= 1 9 
460 J Y=24 
470 NC=20 
480 TX=JX 
490 TY=JY 
500 Z=. 5 
510 CX=36 
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520 CY=0 

530 X=JX 

540 Y=JY 

550 RETURN 

560 LOCATE 0,0,0 

570 PRINT Ni+Ni+Ni; 

580 CX=36 
590 NC=NC— 1 
600 RETURN 

610 IF TX=CX OR TX=CX+1 THEN 830 
620 LOCATE TX,TY+2,0 
630 PRINT Ni; 

640 LOCATE TX,TY,0 
650 PRINT Ji; 

660 LOCATE TX,TY,0 
670 PRINT Ni; 

680 TX=JX 
690 TY-JY 

700 IF NCOO THEN 220 
710 CLS 

720 LOCATE 10,10,0 
730 PRINT "SCORE s"; S; 

740 LOCATE 9,20,0 

750 PRINT "UNE AUTRE 

760 IF INKEYiO"" THEN 760 

770 Xi=INKEYi 

780 IF Xi=" " THEN 770 

790 IF X$<>"r AND Xi<>"n N THEN RUN 

800 LOCATE 0,0,1 

810 CLS 

820 END 

830 LOCATE TX,TY,0 
840 PRINT Ei; 

850 LOCATE TX,TY+2,0 
860 PRINT Ni; 

870 BEEP 

880 FOR 1=1 TO 50 

890 NEXT I 

900 S=S+1 

910 DX=CX 

920 CX=36 

930 FOR 1=1 TO 24 
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MSX JEUX D’ACTION 


940 Z=-Z 
950 H=Z+. 5 
960 LDCATE DX,I-1,Q 
970 PR INT N*+N*+N*; 

9BO LDCATE DX,I,0 
990 PRINT CC$tH); 

ÎOOO BEEP 

1010 FOR J=1 Tü 10 

1020 NEXT J 

1030 NEXT I 

1040 NC=NC-1 

1050 FQR 1=1 TO 500 

1060 NEXT I 

1070 CLS 

1080 IF NC=0 THEN 710 

1090 TY=JY 

1100 GOTO 70 

UlO FOR 1=0 TO 39 

1120 READ A 

1130 VFQKE 3072+1 ,A*4 

1140 NEXT I 

1150 RETURN 

1160 DATA 4,14,31,4,4,4,4,4 
1170 DATA 0,0,0,25,63,0,0,0 
1180 DATA 31,60,56,63,63,0,0,0 
1190 DATA 0,0,0,56,32,0,0,0 
1200 DATA O, O, O, <63, 63, 56, 60, 31 
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SERPENT 


Dans ce jeu, vous êtes un serpent qui se déplace en ondulant sur l'écran. 
Le changement de direction s'effectue en tapant n'importe quelle touche. 
Pour pouvoir vous déplacer, vous devez vous nourrir Heureusement, vous 
êtes entouré par un grand nombre de champignons. Mais attention i St cer- 
tains sont excellents, vous devez absolument éviter les champignons évtdés 
qui, eux, sont vénéneux. Chaque champignon vous apporte suffisamment 
de calories pour avancer de dix lignes. Essayez de ne pas mourir de faim 
sans pour autant finir empoisonné î 


10 REH * *#*■#■**■**'#* 

20 REH * SERPENT * 

30 REM *#**■*■*#■**** 

40 KEY OFF 
50 WIDTH 39 
60 GOSUB 480 
70 D$— INKEY$ 

80 IF DtO" " THEN D=-D 
90 X=X+D 

100 IF X<1 THEN X=2 
110 IF X >39 THEN X-38 
120 C=VPEEK(X+40*Y) 



MSX JEUX D'ACTION 


130 IF C=PQ THEN 240 

140 IF C=TR THEN S=S+10: H=H+10ï BEEP 
150 VPOKE X+Y*40,SP 
160 LOCATE 0,24,0 
170 PRINT 

1 80 VPOKE RND ( 1 > *38+92 1 , TR 

190 IF RND ( 1 > >. 5 THEN VPOKE RND C 1 ) *38+92 

1 ,PQ 

200 S=S-1 

210 IF S=G THEN 240 
220 H=H+1 
230 GOTO 70 
240 BEEP 

250 LOCATE 0,24,0 
260 PRINT 

270 VPOKE X+ (Y— 1 ) *40 , SP 
280 FOR 1=1 TD 5 
290 BEEP 

300 FOR J=1 TO 50 
310 NEXT J 
320 NEXT I 

330 IF INKEY$< >" " THEN 330 
340 IF H>R THEN R=H 
350 LOCATE 4,20 
360 PRINT "SCORE ï";H; 

370 LOCATE 23,20 

300 PRINT "RECORD s";R; 

390 LOCATE 15,23,1 
400 PRINT "UNE AUTRE 
410 D$=INKEY* 

420 IF D$=" " THEN 410 

430 IF D*<>“N" AND DiO 1 ^" THEN 460 

440 CLS 

450 END 

460 GOSUB 550 

470 GOTO 70 

4B0 CLS 

490 SCREEN 0,0 
500 DEF INT A- Z 
510 COLOR 5,3 
520 SP=12B 
530 PQ= 1 30 
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540 TR=129 

550 CLS 

560 S=1Û00 

570 H=0 

5B0 D=1 

590 X=19 

600 Y=10 

610 GOSUB 630 

620 RETURN 

630 RESTORE 

640 FOR 1=0 TO 23 

650 READ A 

660 VPOKE 3072+1, A*4 
670 NEXT I 
680 RETURN 

690 DATA 51,63,45,63,63,30,12,0 
700 DATA 30,63,63,30,12,12,30,0 
710 DATA 30,33,33,30,12,12,30,0 
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MAESTRO 


Ce programme n'est pas vraiment un jeu mais constitue une bonne 
démonstration des possibilités musicales du Spectra vidéo. Deux voies seu- 
lement sont utilisées pour cette invention en «la» mineur de J. S. Bach. Il 
ne tient qu’à vous d'en ajouter une troisième. 


ÎO REM *##*#■****** 

20 REM * MAESTRO * 

30 REM 
40 KEY DFF 
50 CLEAR 5000 
60 SCREEN 1,2 

70 A$= " V5T32L3204R32EA05C04BEBQ5DL 1 6CE04 
G#05E " 

SO A 1 " V5T32L32Q2A 1 6Q3A8G+ 1 6AEA04C03BEB 
04D" 

90 A* = A* + H 04L32AE A05C04BEB05DL 1 6C04ABR 1 6 

II 

1 00 A 1 $=A 1 t + " L 1 6C03AG+EL32AEA04C03BEB04D 

H 

110 A$=A$+"05L32R32ECEO4A05CD4EGL16FAG5D 
FL32FD” 

120 Al *=A 1 $+ " L 1 6C03A04CD3AL32D4D03 AF ADFO 
2A03C02L 1 6B " 

130 B$= " 04BQ5D04GBDFL 1 6EG05CE " 

140 B 1 * = " 03D6BL32BGEGCE02GBL 1 6 AG3CL32DFG 
2B03D02L 1 6GB03L32CEG2A03CG2L 1 6FDL32S03GF 
GCG04CED03G04DF " 

1 50 Bi=BÆ+ " L32EC04A05C04L 1 6F05DL32D04BGB 
L 1 6E05CL32C04 AF AL 1 6DBÜ5CBR8 " 


MSX JEUX D'ACTION 


1 60 B$=B$+ ■■ O4L32R32GO5CED04G05DFL 1 6EG04B 
Ü5GL32C04G05CED04G » 

170 B 1 $=B 1 $ + " L 1 6EC03BGL3204CO3G04CEDQ3GD 
4DFL16ECB" 

ISO C$= 11 05DFL 1 6ECGE " 

190 C 1 $= ” R 1 6R32L32GEGCE03GB 11 

200 C$=C$+ " 06L32CD5AEACE04A05CL 1 6DF+A06C 

II 

210 Cl $=C 1 $■ + " L 1 6 A04ŒGL32F+ ADF+03 AÜ4DQ3F 
+A" 

220 C* =C$+ " L3205BGDG04B05D04GBG5L 1 6CEGBL 
32AF+" 

230 C 1 $ =C 1 $+"Ll 6GB04DF+L32EGCE03G04C03EB 
L16F+" 

240 D-i=" D+F+04BG5D+G4F+AL 1 6G05GL32GECE " 
250 D 1 % = " ABÜ4D+L32R32ECE03 A04CEG " 

260 D $=D$+ ” Q4L 1 6A05F+L32F+D04B05D04L 1 6GD 
5EL32EC04 AG5C u 

270 DI * =D 1 $+ " F +DG3BG4D03GB04DF +EC03AQ4CO 
3F+A04C16" 

2S0 =D$ + " 04F +G5GF+ED+F+O4B05D+E8R8L32 “ 
290 D 1 $=D 1 $ + " C03B04C03AL 1 6B02BG3L32E04EO 
3BGEG2BGB" 

300 EÆ="R32GB-GEGC-t-EGEC+EQ4AGFED05FA— FDF 
04B05DFDG4B05DG4GFEDC05EGECE04A05CD+C04A 
05CD4F+ED+C+03B05D " 

310 E 1 $= “ L 1 6E03EGB— C+SRS04D03DFA— 02B8RBO 
4C03CEF+G2ASRSG3B " 

320 " FDQ4BG5DG4G+B05DD4BG+BER32R 1 6R32 

EAG5CG4BEBG5DL 1 6C04AG+EL32A05CEC04A05C04 
F + A05CG4 AF +AD+D5C04B AG+B " 

330 Fl$= "02B03DF02G+BR3204L32DC03B04L 1 6C 
□3AG+EL32AEA04C03BEB04DCEAECE03A04CG3F+A 
D4CQ3AF+AD+F+L 16E" 

340 G$="05D04BG+BDFG+FDF03BD4FEDCEAECE03 
A04CD+CD3A04CD3F+04C03BAL 1 6G+D4BG+ER32L3 
2EA05CD4BEB05DCG4A " 

350 61 $=" G+BB+Ea 2 BG+EAG 3 CEC 02 AG 3 CG 2 D+BR 3 
2L3203BG+EDBG-+-DL1 6CEÜ2G+03E02A " 

360 H$= " 05CED04BQ5DFECEGFEDCG4BG5CDEFDG+ 
DBDCAFD04BG5D04G+BD5C04AEABG+AECE03AB" 
370 H 1 $ = 11 03F+02B03G+C ADB— G-4-FDD2BG+ ADEFIkt- 
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EQ3EG2ABAS " 

3B0 FOR 1=1 TG 10 
390 X$=X$+CHR$<0) 

400 NEXT I 

410 X$=X$+CHR$<30) +CHR$(63>+CHR$(127) +CH 
R$ i 1 27 ) +CHR$ C 63 ) +CHR$ ( 30 ) 

420 X$=X$+CHR$ ( 192 ) +CHR$ ( 160 ) +CHRÎ- ( 144) + 
CHR$(144) +CHR$< 144) +CHR$ Cl 60) 

430 FGR 1=1 TO B 
440 X$=X$+CHR$C12B) 

450 NEXT I 

460 X$=X$+CHR$Ï0)+CHR$<0) 

470 SPR I TE$ 1 1 ) = X $ 

4B0 GOSUB 660 
490 PLAY A$,A1$ 

500 GOSUB 660 
510 PLAY B$ ,B1$ 

520 GOSUB 660 
530 PLAY C$,C1$ 

540 GOSUB 660 
550 PLAY Dt,Dl$ 

560 GOSUB 660 
570 PLAY E$,E1$ 

580 GOSUB 660 
590 PLAY F$,F1$ 

600 GOSUB 660 
610 PLAY G$,G1$ 

620 GOSUB 660 
630 PLAY 
640 GOSUB 660 
650 GOTO 490 
660 F DR 1=1 TO 15 
670 X=RND C 1 ) *240 
680 Y=RNDti)*176 

690 PUT SPR I TE I , (X , Y> ,RND <1 } *15, 1 

700 FOR J=1 TO 80 

710 NEXT J 

720 NEXT I 

730 RETURN 
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GRAND-PRIX 


Au volant de votre formule 1, essayez de parcourir la plus grande dis- 
tance possible. Votre voiture dispose de deux vitesses. Maintenez la barre 
d'espacement enfoncée pour rester en seconde vitesse. La direction est com- 
mandée par les touches du curseur. En seconde vitesse, votre voiture roule 
deux fois plus vite. Mais gare à l'accident I 


10 REH **************** 

20 REM * GRAND-PRIX * 

30 REM »********•*•*#■**■ 

40 KEY OFF 
50 WIDTH 39 
60 GÜSUB 450 
70 H=STICK (0) 

SO PX=PX+(H=7)-(H=3) 

90 IF STRIG(O) THEN T=2 ELSE T=1 

100 IF VPEEK (PX+40) OCR THEN 240 

110 RX=RX+ (RND C 1 ) < * 5) — (RND ( 1 ) < . 5) 

120 IF RX< RN THEN RX=RN 

130 IF RX >RM THEN RX=RM 

140 VPGKE XP , CR 

150 LOCATE RX , 24,0 



MSX JEUX D'ACTION 


160 PRINT R* 

170 VPÜKE PX,V 
1 80 K=K+T 
190 DL= (2— T) *-50 
200 FOR 1=1 TO DL 
210 NEXT I 
220 XP=PX 
230 GOTO 70 
240 VPDKE XF,CR 
250 FOR 1=1 TO 5 
260 VPDKE PX+40 , A 
270 FOR J=1 TO 100 
280 NEXT J 
290 BEEF 

300 VPDKE PX+4Û , V 

310 FOR J=1 TO 100 

320 NEXT J 

330 NEXT I 

340 LOCATE 10,10,0 

350 PRINT " KMS PARCOURUS i"|K| 

360 IF INKEY$< >“ " THEN 360 

370 LOCATE 14,16,0 

380 PRINT "UNE AUTRE 7 M ; 

390 D$=INKEY$ 

400 IF D*="" THEN 390 

410 IF D$<>"N" AND D$<>"n" THEN RUN 

420 LOCATE 0,0,1 

430 CLS 

440 END 

450 CLS 

460 SCREEN 0,0 
470 GOSUB 6B0 
480 DEF INT A- Y 
490 COLOR 14,12 
500 A=221 

510 R$=CHR'-t (219) +CHR$ (219) +CHR$ (219) 

520 CR=2 1 9 

530 RX= 1 B 

540 V=128 

550 R Y =24 

560 T=1 

570 PX=420 
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GRAND-PRIX 


580 XP=PX 
590 LOCATE 0,0,0 
600 FOR 1=0 TO 24 
610 LOCATE RX ,1,0 
620 PRINT R$ 

630 NEXT I 

640 VPDKE PX,V 

650 RM=34 

660 RN=2 

670 RETURN 

680 FOR 1=0 TD 7 

690 READ A 

700 VPOKE 3072+1 , A*4 

710 NEXT I 

720 RETURN 

730 DATA 18,0,18,51,51,18,0,18 
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CRABES 


Vous deve 2 maintenant aider une pauvre tortue à regagner la mer en évi- 
tant les crabes voraces qui patrouillent sur la plage. Chaque tortue amenée 
au but rapporte un point. Vous disposez de cinq vies pour tenter de marquer 
un score maximum. Utilisez les touches du curseur pour avancer et pour 
reculer. 


10 REM ********** 

20 REM * CRABES * 

30 REM ********** 

40 SCREEN 0,0 

50 DEF INT A- Z 

60 KEY OFF 

70 WIDTH 39 

80 GOSUB 990 

90 GOSUB 1130 

100 B05UB 340 

110 LOCATE 0, 20",0 

120 PRINT "VIE (S) REST. " ; HP; 


MSX JEUX D'ACTION 


130 AÏ=RIGHTÏ (A* T 1 > +LEFTÏ ( Aï , 38) 

1 40 BÏ=R I GHTÏ ( BS , 3B > +LEFTÏ ( Bï , 1 ) 

150 LOCATE 0,X1,0 
160 PR INT Aï; 

170 LOCATE O , X2 , 0 
ISO PR INT Bï; 

190 LOCATE 0,X3,0 
200 PR INT Aï; 

210 LOCATE 0,X4,0 
220 PR INT B$; 

230 DÏ=INKEYÏ 

240 PY=PY+ (STICK (O) =1) - (STICK (0) =5) 
250 IF PY>10 THEN PY=10 
260 IF PY=2 THEN 370 
270 C= VPEEK ( P X +PY*40+ 1 > 

280 IF C< >32 AND C012B THEN 550 
290 LOCATE PX,YP,0 
300 PR INT Nï; 

310 LOCATE PX , PY ,0 
320 PR INT Pï; 

330 YP=PY 
340 T=T+1 

350 IF T >500 THEN 660 
360 GOTO 110 
370 LOCATE PX,YP,0 
300 PR INT Nï; 

390 LOCATE PX,PY,0 
400 PR INT Pï; 

410 BEEP 

420 FOR 1=1 TO 200 
430 NEXT I 
440 LOCATE PX,PY,0 
450 PRINT Nï; 

460 PY= 10 

470 YP=PY 

480 S=S+1 

490 LOCATE 0,0,0 

500 PRINT "SCORE :";S: 

510 LOCATE 19,0 

520 PRINT "RECORD s"; R; 

530 GOSUB 1040 
540 GOTO 110 
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CRABES 


550 NP=NP— 1 

560 LOCATE PX,YP,0 

570 PRINT Nï; 

5B0 LOCATE PX,PY,0 
590 PRINT CHRï ( 1 2G ) ; 

600 GOSUB 1090 

610 IF NP=0 THEN 660 

620 PY=10 

630 YP=PY 

640 GOSUB 1040 

650 GOTO 110 

660 CLS 

670 IF S>R THEN R=S 

630 IF T<500 THEN 710 

690 LOCATE 10,8,0 

700 PRINT '•** TEMPS ECOULE **“; 

710 LOCATE 10,12,0 
720 PRINT "SCORE :“;S; 

730 LOCATE 10,16,0 
740 PRINT "RECORD :";R; 

750 LOCATE 10,20 

760 PRINT "UNE AUTRE ?"; 

770 IF INKEYÏ< >“ " THEN 770 

780 DÏ=INKEYÏ 

790 IF Dï=" " THEN 780 

800 IF D$< >"N" AND DÏO"n" THEN 100 

810 CLS 

820 LOCATE 0,0,1 
830 END 
840 CLS 
850 COLOR 1,11 
860 PÏ=CHRÏ <128 ) 

870 NÏ=CHRÏ(32) 

880 S=0 
890 NP=5 
900 PX=19 
910 PY=10 
920 YF=PY 
930 XI =4 
940 X2=5 
950 X3=7 
960 X4=B 
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MSX JEUX D'ACTION 


970 T=0 

980 RETURN 

990 FOR 1=1 TO 39 

1000 RE AD A 

1010 A$=A$+CHR$ (A) 

1020 NEXT I 
1030 B$=A# 

1040 X=RND(l>*35+2 

1 050 A*=R I GHT $ ( A* , X > +LEFTÏ ( A* , 39-X ) 

1060 RETURN 

1070 DATA 32,129,130,32,32,129,130,32,32 

,32, 129, 130,32,32,32,32,32, 129,130,32 

1080 DATA 32,32,129,130,32,32,32,129,130 

,32,32, 129,130,32,32,129, 130,32,32 

1090 PLAY "Tl 00Ü3G 1 6D4C2Ü3GB04C 1 6E2T 1 50C 

8E 1 6G8F+ 1 6F0D+ 1 6EBC 1 6G3ABG 1 604C4C32E 1 6 

1100 FÜR 1=1 TO 4000 

1110 NEXT I 

1120 RETURN 

1130 FOR 1=0 TO 23 

1140 READ A 

1150 VPOKE 3072+1 , A *4 

1160 NEXT I 

1170 RETURN 

1180 DATA 12,45,63,30,30,63,45,0 
1190 DATA 7,15,31,31,18,16,12,0 
1200 DATA 56,60,62,62,18,2,12,0 
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CASSE-BRIQUES 


Voici un jeu que t'on a l'habitude de voir dans les cafés. Grâce à votre 
ordinateur, vous allez maintenant pouvoir en profiter sans dépenser un cen- 
time, Le but du jeu est simple : essayer de détruire un mur de briques à l'aide 
d'une balle que vous devez renvoyer avec votre raquette. Chaque brique cas- 
sée rapporte un point. Lorsque le mur est entièrement détruit, un nouveau 
mur apparaît. Vous disposez de dix balles pour tenter de marquer un score 
maximum. Utilisez les touches du curseur pour déplacer la raquette. 


10 REM #**•*•********»■#■*** 

20 REM * CASSE-BRIQUES * 

30 REM ««a-***#***#*#**** 

40 KEY OFF 
50 GOSUB 600 
60 LQCATE BXjBY^O 
70 PRINT N$; 

80 BX=BX+DX 
90 BY=BY+DY 

100 IF VPEEK (BX+BY*40) < >32 THEN DY=— DYï S 
=S+1 : BEEP 

110 LDCATE BX,BY,0 


MSX JEUX D'ACTION 


120 PR INT B$; 

130 IF BY=21 AND ABS (BX-RX-3) >1 THEN 290 

140 IF BY=2i AND BX>3 AND BX<36 THEN LOC 

ATE BX ,BY : PRINT N*;:BX=BX+CH 

150 IF BY=21 THEN BEEP: DY=— DY 

160 IF BY=1 THEN BEEP: DY=— DY 

170 IF BX=2 OR BX=37 THEN BEEP:DX=~DX 

ISO D=2*( (STICK CO) =7) — (STICK (O) =3) ) 

190 IF DOO THEN DO =D 
200 IF STICK (0)=0 THEN DO=0 
210 RX=RX+D0 
220 CH=SGN(DO) 

230 IF RX<0 THEN RX=0 
240 IF RX>33 THEN RX=33 
250 LOCATE RX,RY,0 
260 PRINT R#; 

270 IF S=204 THEN GOSUB 930 

280 GOTO 60 

290 NB=NB+1 

300 rF NB=11 THEN 410 

310 LOCATE BX,BY,0 

320 PRINT NS; 

330 FOR 1=1 TO 3 
340 BEEP 

350 FOR J=1 TO 100 

360 NEXT J 

370 NEXT I 

380 DO— O 

390 GOSUB B70 

400 GOTO 60 

410 LOCATE 13,5,0 

420 S=S+404*K 

430 PRINT “SCORE ï";Sï 

440 IF S>R1 THEN R1=S 

450 LOCATE 13,10,0 

460 PRINT "RECORD :";R1; 

470 LOCATE 13,15,0 
480 PRINT “UNE AUTRE ?"; 

490 NB=0 
500 K-O 
510 S=0 
520 D$=INKEY* 
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CASSE-BRIÛUES 


530 IF D*< >" ” THEN 520 
540 D*=INKEY* 

550 IF D*="" THEN 540 

560 IF D*<>"N" AND D*<>"n" THEN 50 

570 LOCATE 0,0,1 

580 CLS 

590 END 

600 CLS 

610 SCREEN 0,0 
620 GOSUB 1010 
630 WIDTH 40 
640 COL DR 15,13 
650 DEF INT A-Z 
660 BRS=CHRS(128) 

670 N*=CHR*(32) 

680 R*=N*+N*+CHR* (223) +CHR* (223> +CHR* (22 
3) +N*+N* 

690 B*=CHR*(249> 

700 FOR BX=1 TD 38 
710 LOCATE BX , O , O 
720 PRINT CHR* (219) ; 

730 NEXT BX 
740 FOR BY=1 TO 21 
750 LOCATE 1,BY,0 
760 PRINT CHR* (219) ; 

770 LOCATE 38,BY,0 
780 PRINT CHR*(219>; 

790 NEXT BY 
800 FOR BY=2 TO 7 
810 FOR BX=3 TO 36 
820 LOCATE BX,BY,0 
830 PRINT BR*; 

840 NEXT BX 
850 NEXT BY 
860 RX=16 
870 RY=22 
880 BY=21 

890 BX=INT (RND ( 1 ) *34) +3 
900 DY=— 1 

910 DX= ( INT (RND ( 1 ) *2) —.5) *2 
920 RETURN 
930 K=K+1 
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MSX JEUX D'ACTION 


940 S=0 

950 LOCATE BX , BY,0 
960 PR INT N$; 

970 LOCATE RX+2,RY,0 
980 PR INT Ni,N$,N$; 

990 GOSUB 700 

1000 RETÜRN 

ÎOIO RESTORE 

1020 FOR 1=0 TO 7 

1030 RE AD A 

1040 VPOKE 3072+1, A*4 

1050 NEXT I 

1060 RETURN 

1070 DATA 63,33,33,33,33,33,33,63 
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POURSUITE 


Le voleur s'est échappé, emportant le magot. [Il est représenté par un 
as de pique noir J II $e cache dans la ville et vous avez cinquante minutes 
pour le débusquer et l'arrêter. Attention, pas de précipitation 1 En effet, sî 
vous vous jetez sur lui sans réfléchir, il y a toutes les chances pour qu'il vous 
file entre les doigts, La meilleure façon de vous y prendre est de l'aborder 
de côté, (Efficace à tous les coups à condition de ne pas le rater 1) Si vous 
ne vous sentez pas assez sûr de vous, attaquez-le de face, ce qui est plus 
facile mais moins efficace car moins discret. Encore un conseil : n'essayez 
pas de le poursuivre ; cela ne vous mènerait à rien car il est aussi rapide que 
vous, Observez plutôt ses mouvements comme un vrai détective. Quand vous 
le verrez tourner en rond, approchez-vous sans faire de bruit et surgissez 
au bon moment. Mais rappelez -vous, le temps presse I 


iO REM #*■*****-*-***## 

20 REM * POURSUITE * 

30 REM *****#*####■■*■* 

40 KËY DEF 

50 WIDTH 39 

60 GOSUB 1060 

70 5=0 

80 N=32 

90 V“128 

100 P= 1 29 

110 GOSUB 670 

120 ST =ST I CK CO > 



MSX JEUX D'ACTION 


130 DX=(ST=7)-<ST=3> 

140 DY— ( ST=1 ) — ( ST =5) 

150 Z=Z--2 

160 LOCATE 0,24,0 

170 PRINT “TEMPS ï " ; INT <Z+1 > ; 

ISO IF Z<0 THEN 370 
190 PX=PX+DX 
200 PY=PY+DY 
210 C=VPEEKCPX+PY*40> 

220 IF C=V THEN ÎOIO 

230 IF C< >32 THEN PX=XP: PY=YP 

240 VPQKE XP+YP*40,N 

250 VPQKE PX+PY*40,P 

260 YP=PY 

270 XP=PX 

280 VX=VX+CX 

290 VY=VY+CY 

300 IF VPEEK < VX+VY*40) < >N THEN GOSUB 510 

310 IF VPEEK (VX+VY*40> ON THEN 280 

320 VPOKE XV+YV*4Û,N 

330 VPQKE VX+VY*40,V 

340 XV-VX 

350 YV=VY 

360 GOTO 120 

370 IF INKEY$< >" “ THEN 370 

380 FOR 1=1 TO 1000 

390 NEXT I 

400 LOCATE 10,6 

410 PRINT "TEMPS ECOULE"; 

420 LOCATE 10,10 
430 PRINT “SCORE :";S; 

440 LQCATE 10,18,1 

450 PRINT “UNE AUTRE ?“; 

460 D*=INKEY$ 

470 IF D$= " “ THEN 460 

4BO IF D$< >"N" AND D*0 M n" THEN RUN 

490 CLS 

500 END 

510 DT =DT+1 

520 GOSUB 620 

530 IF VPEEK (XV+CX+ (YV+CY) *40) =N THEN VX 
=XV+CX : VY=YV+CY: RETURN 
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POURSUITE 


540 DT=DT— 2 
550 GOSUB 620 

560 IF VPEEK ( XV+CX+ < YV+CY) *40ï=N THEN VX 

=X V+CX : VY= YV+CY: RETURN 

570 DT=DT-1 

580 GOSUB 620 

590 VX=XV+CX 

600 VY=YV+CY 

610 RETURN 

620 IF DT >4 THEN DT=DT-4 
630 IF DT< 1 THEN DT=DT+4 
640 CX= (DT=1 ) — (DT=3) 

650 CY— ( DT— 2 ) - (DT=4) 

660 RETURN 
670 CLS 

680 FOR VX=0 TO 39 

690 VPOKE VX+40,219 

700 VPOKE VX+880,219 

710 NEXT VX 

720 FOR VY=2 TD 22 

730 VPOKE VY*40,219 

740 VPOKE VY#40+39,219 

750 NEXT VY 

760 FOR VX= 1 TO 150 

770 GOSUB 970 

780 VPOKE PX+PY*40,219 

790 NEXT VX 

800 GOSUB 970 

810 VX=PX 

820 VY=PY 

830 VPOKE VX+VY*40,V 

040 XV=VX 

850 YV=VY 

860 GOSUB 970 

870 VPOKE PX+PY*4Û,P 

880 XP=PX 

890 YP=PY 

900 Z-50 

910 CX=0 

920 CY=0 

930 DX=0 

940 DY=0 
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MSX JEUX D'ACTION 


950 DT=0 
960 RETURN 

970 PX=INT<RNDU)*37)+1 

980 PY=INT<RNDC1)*21 ï +2 

990 IF VPEEK(PX+PY*40X>N THEN 970 

1000 RETURN 

ÎOI’O FOR 1 = 1 TO 5 

1020 PLAY "DC" 

1030 NEXT I 
1040 S=S+1 
1050 GOTO 110 
1060 SCREEN 0,0 
1070 COLOR 6,14 
1080 CLS 
1090 DEF INT A-Y 
1100 PX=RND î— TIME) 

1110 RESTORE 

1120 FOR 1=0 TO 15 

1130 RE AD A 

1140 VPGKE 3072+1 , A*4 

1150 NEXT I 

1160 RETURN 

1170 DATA 30,63,45,63,30,30,30,0 
1 ISO DATA 28,28,3,62,8,8,20,20 
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ROBOTS 


Vous voici seul, abandonné sur une planète défendu© par des robots meur- 
triers. Le soi est truffé de mines qu'ii vous faut absolument éviter* Les mines 
sont représentées sur l'écran par des losanges noirs* Au début du jeu, cinq 
robots sont présents sur le terrain. Sans perdre une seconde, ils se précipi- 
tent sur vous en suivant toujours le plus court chemin. Par chance, les robots 
sont aveugles et ne voient pas les mines qui se trouvent entre eux et vous, 
ce qui vous permet, en vous déplaçant judicieusement à Laide des touches 
du curseur, de les éliminer. 

Lorsque tous les robots sont éliminés, le jeu reprend avec un robot sup- 
plémentaire. Si vous sautez sur une mine ou si un robot vous tue, tout n'est 
pas perdu. Vous disposez en effet de cinq vies. 


10 REH ***#*****-■» 

20 REM * ROBOTS * 

30 REM ***#*-#*■*** 

40 KEY OFF 
50 WIDTH 39 
60 SCREEN 0,0 
70 DEFINI A- 2 
80 NH=5 
90 N 1=5 
100 NM~40 
110 NR=N1 
120 DIM R (30,1) 

130 6GSUB 1320 

140 BOSLÎB 770 

150 BDSUB 670 

160 C«VPEEK (HX+HY*40) 


MSX JEUX D'ACTION 


170 IF CON AND Ç< >H THEN 440 
130 VPOKE X+Y*40,N 
190 VPOKE HX+HY*40,H 
200 X=HX 
210 Y=HY 

220 FOR J=1 TO 200 
230 NEXT J 
240 T=0 

250 FOR 1=1 TO NR 

260 IF R ( I , 0) =0 THEN 370 

270 T=1 

280 RX=R (1,0) +SGN (HX— R (1,0) ) 

290 RY=R (1,1) +SGN (HY-R ( I , 1 ) > 

300 C=VPEEK (RX+RY*40) 

310 IF C=M OR C=R THEN S=S+ 1 s VPOKE R (1,0 

>+40*R(I ,1 ) ,N:R(I,0) =0ï GOTO 370 

320 IF C=H THEN 440 

330 VPOKE R ( I , Ü ) +40*R (1,1) , N 

340 VPOKE RX+40*RY,R 

350 R ( I , O) =RX 

360 R ( I , 1 ) =RY 

370 NEXT I 

380 IF T =0 THEN 400 

390 GOTO 150 

400 S=S+10 

410 IF INKEY*<>"" THEN 410 

420 IF NR< 30 THEN NR=NR+1 

430 GOTO 140 

440 NH=NH-1 

450 VPOKE X+40*Y,N 

460 VPOKE HX+40*HY,H 

470 A 1 $= 11 V 1 2D2D3D8D2F3EBE3D8D3C+BD2 " 

480 A2*= "F2F3FBF2A3GBG3FBF3E8F2 " 

490 A3i= 11 03 A2B-3B-B A2B~3B~S A3ABB-3B-B A2 " 
500 PLAY Al* ,A2*,A3$ 

510 FOR 1=1 TO 5000 
520 NEXT I 

530 IF INKEYiO"" THEN 530 
540 IF NH>0 THEN NR=N1:G0TÜ 140 
550 CLS 

560 SCREEN 0,0 
570 LOCATE 9,10 
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ROBOTS 


580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

S30 

B40 

850 

860 

B70 

8B0 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 


PR INT ” SCORE : " ; S; 
LOCATE 9,20 
PRINT "UNE AUTRE 
IF INKEY*< >" " THEN 610 
D*=INKEY* 


IF D$= ,, “ THEN 620 

IF D*< > ,, N" AND D*< >"n " THEN RUN 

CLS 

END 

J=STICK(0) 

IF J=1 THEN HY=HY— 1 

IF J=2 THEN HY=HY— 1 : HX=HX+1 

IF J=3 THEN HX=HX+1 

IF J=4 THEN HX=HX+1:HY=HY+1 

IF J=5 THEN HY=HY+1 

IF J =6 THEN HY=HY+ 1 : HX=HX- 1 

IF J=7 THEN HX=HX— 1 

IF J=S THEN HX=HX— 1 : HY=HY— 1 

RETURN 

CLS 

COLOR 1,13 
PRINT 11 SCORE : " $ S 
IF NH=1 THEN 850 
FOR HX=1 TO NH-1 
LOCATE 19+HX ,24 , O 
PRINT H*; 

NEXT HX 

FOR HX=Ù TG 39 
VPOKE HX+40,M 
VPOKE HX+880 , M 
NEXT HX 

FOR HY=2 TO 22 
VPOKE HY*4Q,M 
VPOKE HY*40+39,M 
NEXT HY 
FOR 1=1 TO NM 
HX = INT (RND ( 1 > *37) +1 
HY=INT (RND (1 ) *21 ) +2 
VPOKE HX+40*HY,M 
NEXT I 

FOR 1=1 TO NR 
R < I ,0 ) =INT (RND Cl) *37) +1 
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MSX JEUX D'ACTION 


1ÛOO R(I,1)=Ï NT ( RND C 1 ) *2 1 ) +2 
1010 IF VPEEK (R < I , O) +40*R ( 1 , 1 ) ) < >32 THEN 
990 

1020 VPOKE R ( 1 , 0) +40*R (1,1) ,R 
1030 NEXT I 

1040 HX=INT<RND<1)*37>+1 

1050 HY=INT(RND(l)*2U+2 

1060 IF VPEEK (HX+HY*40> 032 THEN 1040 

1070 IF VPEEK CHX+HY*40-41) 032 THEN 1040 

ÎOSO IF VPEEK (HX+H Y» 40-40) 032 THEN 1040 

1090 IF VPEEK ïHX+HY*40-39) < >32 THEN 1040 

IlOO IF VPEEK <HX+HY*40-1> 032 THEN 1040 

lllO IF VPEEK <HX+HY*40+1> 032 THEN 1040 

1120 IF VPEEK (HX+HY*40+39) 032 THEN 1040 

1130 IF VPEEK CHX+HY*40+40) 032 THEN 1040 

1140 IF VPEEK (HX+HY*40+41> 032 THEN 1040 

1150 X=HX 

1160 Y=HY 

1170 FOR 1=1 TO 5 

11B0 VPOKE HX+HY*40,H 

1190 BEER 

1200 FOR J=1 TO 50 

1210 NEXT J 

1220 VPOKE HX+HY*40,H 

1230 FOR J=1 TO 50 

1240 NEXT J 

1250 NEXT I 

1260 RESTORE 

1270 FOR 1=0 TO 15 

1280 RE AD A 

1290 VPOKE 3Û72+I,A*4 

1300 NEXT I 

1310 RETÜRN 

1320 H= 1 29 

1330 H$=CHB*C129) 

1340 M=219 
1350 R=128 
1360 N=32 
1370 RETURN 

1380 DATA 30,63,45,63,63,18,30,30 
1390 DATA 28,28,8,62,8,8,20,20 
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PARACHUTE 


Essayez, en sautant d'un hélicoptère en vol, d'atteindre la cible qui se 
trouve au sol. Une première pression sur une touche vous permet de des- 
cendre verticalement en chute libre. Une deuxième pression entraîne l'ou- 
verture du parachute. La descente continue alors plus lentement et avec un 
angle de 45 degrés car le vent vous pousse. Plus vous attendrez pour ouvrir 
votre parachute et moins vous serez déporté. Mais n'attendez pas trop long- 
temps car, au-dessous de cent mètres, le parachute ne s'ouvre plus. 


10 REM **#*##**-*#*->1-# 

20 REM * PARACHUTE * 

30 REM fMHHMHHHHMHHfr 
40 KEY OFF 
50 WIDTH 39 
60 S=0 

70 GGSUB 510 
80 H=H— 1 

90 IF H--1 THEN LOCATE 0,0sPRINT : HH= 
36 : H=36 

ÎOO LOCATE H, O: PR INT H$; 

HO D*=INKEY$ 

120 IF D$= " *' 


THEN GOTO 170 


MSX JEUX D'ACTION 

130 IF PV>16 THEN GOTO 170 

140 IF SF-1 THEN LET 0P=1:G0TQ 160 

150 SP=1 

160 IF 0P=0 THEN PV=1 : PH=H+1 . 5 

170 IF SP=0 THEN GOTO 340 

180 IF 0P=0 THEN PV=FV+1 

190 IF 0P=1 THEN PV=PV+. 5: PH=PH-. 5 

200 IF P V >2 1 DR PH< O THEN GOTO 360 

210 IF OP=l THEN GOTO 280 

220 LOCATE HD, V: PR INT Nt+Nt; 

230 V=PV 
240 HO=PH 

250 LOCATE HO, V: PR INT Ct; 

260 FOR 1=1 TO 40: NEXT I 
270 GOTO SO 

290 LOCATE HQ, V: PR INT Nt+Nt; 

290 LOCATE HO,V+l:PRINT Nt; 

300 V=PV 
310 HO=PH 

320 LOCATE HO,V:PRINT Pt; 

330 LOCATE HQ,V+1:PRINT Qt; 

340 FOR 1 = 1 TO 60ï NEXT I 
350 GOTO 80 

360 IF ABS t (H0-. 5) -PA) >1 THEN GOTO 420 

370 FOR 1=1 TO 500 

380 NEXT I 

390 S=S+1 

400 GOSUB 510 

410 GOTO 80 

420 CLS 

430 LOCATE 10, 10: PR INT "SCORE :";S; 

440 LOCATE 10,14:PRINT "UNE AUTRE ?" ; 
450 Dt=INKEYt 

460 IF Dt=" “ THEN GOTO 450 

470 IF Dt< >"N“ AND Dt<>'’n M THEN RUN 

480 CLS 

490 LOCATE 0,0,1 
500 END 

510 SCREEN 0,0 
520 COLOR 15,5 
530 RESTORE 
540 FOR 1=0 TO 79 
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PARACHUTE 


550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

BiO 

820 

830 

840 

850 


READ A 

UPÜKE 3072+I,A*4 
NEXT I 
Nt=CHRt<32) 

Mt=Nt+Nt+Nt 

Ht=CHRt (128) +CHRt ( 129) +CHRt ( 130) +Nt 
Ct=CHRt C 1 3 1 ) +CHRÎ (132) 

Pt=CHRt (133) +CHRt ( 134) +Nt 
Qt=CHRt (135) +CHRt (136) 

At=CHRt (137) +CHRt (137) 

H=36 

PA=INT (RND ( 1 > *28) +1 
LOCATE PA ,24,0: PR INT At; 

SP=0 

ÛP=0 

PH=0 

PV=0 

CC=2 

V=0 

H0=0 

RETURN 

DATA 63,1,15,31,31,63,63,31 
DATA 62,0,32,56,63,63,60,48 
DATA 0,0,3,3,63,62,0,0 
DATA 2,2,3,3,15,9,11,3 
DATA 32,32,32,32,56,8,40,32 
DATA 7,31,31,63,63,32,32,16 
DATA 48,60,60,62,62,2,2,4 
DATA 19,11,9,15,3,3,2,2 
DATA 36,40,8,56,32,32,32,32 
DATA 63,63,63,0,0,0,0,0 


- 69 - 


LA BIBLIOTHÈQUE SYBEX 


OUVRAGES GÉNÉRAUX 

VOTRE PREMfER ORDINATEUR par Roona r Zaks. 

296 pages, Réf. 394 

VOTRE ORDINATEUR ET VOUS par RqonayZaks. 

296 pages, RéL 271 

OU COMPOSANT AU SYSTÈME : une introduction aux microprocesseurs^ 

636 pages, Réf* 340 

TECHNIQUES D'INTERFACE aux microprocesseurs par A usrm Lesea et RqonayZaks, 
450 pages, Réf* 339, 3ème édition 

LEXIQUE INTERNATIONAL MICRQÛRDINATEURS, avec dictionnaire abrégé en 10 langues 
192 pages, Réf. 234 

GUIDE DES MICRO-ORDINATEURS A MOINS 3 000 F par Ml Pmm t 
144 pages, Réf. 322 

LEXIQUE MICRO-INFORMATIQUE par Aswlf ftw. 

140 pages, Réf. 369 

LA SOLUTION RS 232 par Nelson Ford, 

208 pages, Réf. 352 

BASIC 

VOTRE PREMIER PROGRAMME BASIC par Rûdnay Zaks, 

208 pages, Réf. 263 

INTRODUCTION AU BASIC par Pierre Le Beux. 

336 pages, Réf. 335 

LE BASIC PAR LA PRATIQUE : 60 exercices par JeanPierre Lamqitîer, 

252 pages, Réf. 395 

LE BASIC POUR L'ENTREPRISE par X m TumBur 
204 pages, Réf. 253, 2ème édition 

PROGRAMMES EN BASIC, Mathématiques, Statistiques, Informatique par Alan R, Miller , 
318 pages, Réf. 259 

AU COEUR DES JEUX EN BASIC par Richard Mateosian 
352 pages, Réf. 233 

JEUX D'ORDINATEUR EN BASIC par David H. Am, 

192 pages, Réf. 246 

NOUVEAUX JEUX D'ORDINATEUR EN BASIC par David H. Am 
204 pages, Réf. 247 

PASCAL 

INTRODUCTION AU PASCAL par Pierre Le Beux, 

496 pages, Réf. 330 

LE PASCAL PAR LA PRATIQUE par Pierre Le Beux et Henri Tavernier, 

562 pages, Réf. 361 
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LE GUIDE DU PASCAL par Jacques Tjbergmen, 

504 pages, Réf. 232 

PROGRAMMES EN PASCAL pour Scientifiques el Ingénieurs par Alan R. Mmer. 
392 pages, Réf, 240 

AUTRES LANGAGES 

INTRODUCTION A ADA par Pierre Lé Beux, 

366 pages, Réf, 360 

MICR00RD1NATEUR 

ALICE 

JEUX EN BASIC POUR AUGE par Pierre Monsaut, 

96 pages, Réf. 320 

ALICE et ALICE 90, PREMIERS PROGRAMMES par RqonayZaks, 

248 pages, Réf. 376 

ALICE, GUIDE DE L'UTILISATEUR par Norbert Rimqux, 

208 pages, Réf. 378 

AMSTRAD 

AMSTRAD, PREMIERS PROGRAMMES par RoûnayZaks . 

248 pages, Réf. 405 

AMSTRAD, 56 PROGRAMMES par Stanley R. Tarn, 

160 pages, Réf. 407 

APPLE I MACINTOSH 

PROGRAMMEZ EN BASIC SUR APPLE II, Tome 1 par Léopold Laurent 
208 pages, Réf. 333 

APPLE II 66 PROGRAMMES BASIC par Stanley R. Tarn. 

192 pages, Réf. 283 

JEUX EN PASCAL SUR APPLE par Douglas Hergert et Joseph L Kalash \ 

372 pages, Réf. 241 

GUIDE DU BASIC APPLE II par Douglas Hergert, 

272 pages, Réf. 306 

APPLE II, PREMIERS PROGRAMMES par RodnayZaks , 

248 pages, Réf. 373 

MACINTOSH, GUIDE DE L'UTILISATEUR par Joseph Caggiano, 

208 pages, Réf. 396 

ATARI 

JEUX EN BASIC SUR ATARI par Paul sum 
96 pages, Réf. 282 

ATARI, PREMIERS PROGRAMMES par RoùnayZaks , 

248 pages. Réf* 387 

ATARI, GUIDE DE L'UTILISATEUR par Thomas Blackadar. 

192 pages, Réf. 354 

ATM OS 

JEUX EN BASIC SUR ATMOS par Pierre Monsaut 
96 pages, Réf. 346 
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ATMQS, 56 PROGRAMMES par Stanlet R. Trqst, 

130 pages, Réf. 372 

COMMODORE 64 

JEUX EN BASIC SUR COMMODORE 64 par Pierre Monsaut. 

96 pages, Réf. 317 

COMMODORE 64, PREMIERS PROGRAMMES par RoonatZaks, 

248 pages, Réf. 342 

GUIDE DU BASIC VIC 20, COMMODORE 64 par Doublas Herbert, 

240 pages, Réf. 312 

COMMODORE 64, GUIDE DE L'UTILISATEUR par J. Kassmer. 

144 pages, Réf. 314 

COMMODORE 64, 66 PROGRAMMES pat Stanlet R. Tmi 
192 pages, Réf. 319 

COMMODORE 64, GUIDE DU GRAPHISME par Charles Platt. 

372 pages, Réf. 353 

COMMODORE 64, JEUX D'ACTION par Eric Ravis. 

96 pages, Réf. 403 

DRAGON 

JEUX EN BASIC SUR DRAGON par Pierre Monsaut, 

96 pages, Réf. 324 

GOUPIL 

PROGRAMMEZ VOS JEUX SUR GOUPIL par François Abella, 

208 pages. Réf. 264 

HECTOR 

HECTOR JEUX D'ACTION par Pierre Monsaui 
96 pages, Réf. 388 

IBM 

IBM PC EXERCICES EN BASIC par Jean-Pierre Lamoitier. 

256 pages, Réf. 338 

IBM PC GUIDE DE L'UTILISATEUR par Joan Lasselle et Carol Ramset, 
160 pages, Réf. 301 

IBM PC 66 PROGRAMMES BASIC par Stanlet R. Trost 

192 pages, Réf. 280 

GRAPHIQUES SUR IBM PC par Néison Foro. 

320 pages, Réf. 357 

LASER 

LASER JEUX D'ACTION par Pierre Monsaut. 

96 pages, Réf. 371 

MO 5 

MO 5 JEUX D'ACTION par Pierre Monsaut. 

96 pages, Réf. 367 

MO 5, PREMIERS PROGRAMMES par RoonatZaks. 

248 pages, Réf, 370 
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ORIC 

JEUX EN BASIC SUR ÛRIC par Peter Shaw. 

96 pages, Réf. 278 

ORIC PREMIERS PROGRAMMES par RoonatZaks, 

248 pages, Réf. 344 

SHARP 

DÉCOUVREZ LE SHARP PC 1500 ET LE TRS-80 PC-2 par Michel Lhoir. 
2 tomes, Réf. 261-262 

SPECTRAVIDEO 

SPECTRAVIDEO, JEUX D'ACTION par Pierre Monsaut, 

96 pages, Réf. 377 

SPECTRUM 

PROGRAMMEZ EN BASIC SUR SPECTRUM par SM. Gee. 

208 pages, Réf. 252 

JEUX EN BASIC SUR SPECTRUM par Peter Shaw. 

96 pages, Réf. 276 

SPECTRUM, PREMIERS PROGRAMMES par RoonatZaks. 

248 pages, Réf. 381 

SPECTRUM JEUX D'ACTION par Pierre Monsaut. 

96 pages, Réf. 368 

Tl 99/4 

PROGRAMMEZ VOS JEUX SUR Tl 99/4 par François Abeua. 

160 pages, Réf. 303 

TO 7 

JEUX EN BASIC SUR TO 7 par Pierre Monsaut. 

96 pages, Réf. 326 

TO 7, PREMIERS PROGRAMMES par RoonatZaks. 

248 pages, Réf. 328 

TO 7, PROGRAMMATION EN ASSEMBLEUR par Georges Fagot Barrait, 
192 pages, Réf. 350 

TRS-80 

PROGRAMMEZ EN BASIC SUR TRS-80 par Léopold Laurent. 

2 tomes, Réf. 250-251 

DÉCOUVREZ LE SHARP PC-1500 ET LE TRS-80 PC 2 par Michel Lhoir. 
2 tomes, Réf. 366-262 

JEUX EN BASIC SUR TRS-60 MC-10 par Pierre Monsaut. 

96 pages, Réf. 323 

JEUX EN BASIC SUR TRS-BO par Chris Palmer. 

96 pages, Réf. 302 

JEUX EN BASIC SUR TRS-80 COULEUR par Pierri Monsaut. 

96 pages, Réf. 325 

TRS-80 MODÈLE 100, GUIDE DE L'UTILISATEUR par OrsonKeuog. 

112 pages, Réf. 300 
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VIC 20 

PROGRAMMEZ EN BASIC SUR VIC 20 par G. 0 , Hamann. 

2 tomes, Réf . 244-337 

JEUX EN BASIC SUR VIC 20 par Aiastair Gourlay, 

96 pages, Réf. 277 

VIC 20, PREMIERS PROGRAMMES par RoonayZaks, 

248 pages, Réf. 341 

GUIDE DU BASIC VIC 20, COMMODORE 64 par Doueias Herbert. 
240 pages, Réf. 312 

VIC 20 JEUX D'ACTION par Pierre Monsaut. 

96 pages, Réf. 345 

ZX 81 

ZX 81 GUIDE DE L'UTILISATEUR par Doublas Herbert, 

208 pages, Réf. 256 

ZX 81 56 PROGRAMMES BASIC par Stanley R. Tfost. 

192 pages, Réf. 304 

GUIDE DU BASIC ZX 81 par Doublas Hntœrrr. 

204 pages, Réf. 285 

JEUX EN BASIC SUR ZX 81 par Mark Cmim. 

96 pages, Réf. 275 

ZX 81 PREMIERS PROGRAMMES par RoonayZaks, 

248 pages, Réf. 343 

MICROPROCESSEURS 

PROGRAMMATION DU Z80 par RoonayZaks. 

618 pages, Réf. 220 

APPLICATIONS DU Z80 par James W. Comas, 

304 pages, Réf. 274 

PROGRAMMATION OU 6502 par RoonayZaks, 

376 pages, Réf. 331, 2ème édition 

APPLICATIONS DU 6502 par RoonayZaks, 

288 pages, Réf. 332 

PROGRAMMATION DU 6800 par Daniel Jr an David et RoonayZaks. 
37 4 pages. Réf. 327 

PROGRAMMATION DU 6809 par RoomZAKS rr William Lablak, 
392 pages, Réf. 328 

PROGRAMMATION DU 8086/8088 par James W. Coffrûn. 

304 pages, Réf. 316 

MISE EN OEUVRE DU 6B00Q par C. Vmuirow. 

352 pages, Réf. 363 

SYSTÈMES D'EXPLOITATION 

GUIDE DU CP/M AVEC MPfM par Roonay Zaks. 

354 pages, Réf. 336 
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CP/M APPROFONDI par Alan R. Milicr. 

380 pages, Réf. 334 

INTRODUCTION AU p-SYSTEM UCSD par Charles W. Grant et Jon Butah, 

308 pages, Réf. 365 

GUIDE DU PC DOS par Richard A. Km. 

240 pages, Réf. 313 

LOGICIELS ET APPLICATIONS 

INTRODUCTION AU TRAITEMENT DE TEXTE par Hal Gultzir, 

228 pages, Réf. 243 

INTRODUCTION A WORDSTAR par Arthur Naiman. 

200 pages, Réf. 255 

WOROSTAR APPLICATIONS par Juin Ame Arca. 

320 pages, Réf. 305 

VISICALC APPLICATIONS par Stanley R. Trost, 

304 pages, Réf. 258 

VISICALC POUR L’ENTREPRISE par Dominique Heiie, 

304 pages, Réf, 309 

INTRODUCTION A dBASE II par Alan Simpson, 

280 pages, Réf. 364 

DE VISICALC A VISI ON par Jacques Bouroeu, 

256 pages, Réf. 321 

MULTIPLAN POUR L'ENTHEPRISE par D. Heue et G. Boussand, 

304 pages, Réf. 379 

La plupart de ces ouvrages existent en version anglaise. N'hési- 
tez pas à demander notre catalogue. 
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